home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 46
/
Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso
/
-in_the_mag-
/
reader_requests
/
scilab
/
tests
/
dmrdsp.dia.ref
< prev
next >
Wrap
Text File
|
1999-09-16
|
7KB
|
215 lines
z=poly(0,'z')
z =
z
n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
p=poly(rand(5,1),'z');q=poly(rand(6,1),'z');
p1=[p,0.1+2.35*z-5.05*z**3];q1=[q,2.56+0.03*z-10.01*z*z+z**5];
d3=[1+z**10 z**15];
tlist('r',d,n)
ans =
2
1 + 2z + z
----------
1 + z
tlist('r',n,d)
ans =
1 + z
---------
2
1 + 2z + z
tlist('r',d2,n2)
ans =
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
! ---------- -------------------- !
! 2 !
! 1 + z 1 + 2z + z !
! !
! 2 !
! 1 + z 1 + 2z + z !
! --------- -------------------- !
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
tlist('r',n2,d2)
ans =
! 2 !
! 1 + z 1 + 2z + z !
! --------- -------------------- !
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
! !
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
! ---------- -------------------- !
! 2 !
! 1 + z 1 + 2z + z !
tlist('r',den,num)
ans =
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
! ---------- -------------------- !
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
tlist('r',num,den)
ans =
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
! ---------- -------------------- !
! 2 2 3 4 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z !
tlist('r',p1,q1)
ans =
column 1
! 2 3 4 !
! - 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z !
! 5 !
! + z !
! ------------------------------------------------------------------ !
! 2 3 4 !
! 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z !
! 5 6 !
! - 3.6713072z + z !
column 2
! 3 !
! 0.1 + 2.35z - 5.05z !
! ------------------------- !
! 2 5 !
! 2.56 + 0.03z - 10.01z + z !
tlist('r',q1,p1)
ans =
column 1
! 2 3 4 !
! 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z !
! 5 6 !
! - 3.6713072z + z !
! ------------------------------------------------------------------ !
! 2 3 4 !
! - 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z !
! 5 !
! + z !
column 2
! 2 5 !
! 2.56 + 0.03z - 10.01z + z !
! ------------------------- !
! 3 !
! 0.1 + 2.35z - 5.05z !
tlist('r',p,q)
ans =
2 3 4
- 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z
5
+ z
------------------------------------------------------------------
2 3 4
0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
5 6
- 3.6713072z + z
tlist('r',q,p)
ans =
2 3 4
0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
5 6
- 3.6713072z + z
------------------------------------------------------------------
2 3 4
- 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z
5
+ z
tlist('r',p,z)
ans =
2 3 4
- 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z
5
+ z
------------------------------------------------------------------
z
tlist('r',z,p)
ans =
z
-----------------------------------------------------------------
2 3 4
- 0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z
5
+ z
tlist('r',d1,n1)
ans =
column 1 to 3
! 2 2 3 4 2 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z 1 + 2z + z !
! ---------- -------------------- ---------- !
! 2 !
! 1 + z 1 + 2z + z 1 + z !
column 4
! 2 3 4 !
! 1 + 4z + 6z + 4z + z !
! -------------------- !
! 2 !
! 1 + 2z + z !
tlist('r',n1,d1)
ans =
column 1 to 3
! 2 !
! 1 + z 1 + 2z + z 1 + z !
! --------- -------------------- --------- !
! 2 2 3 4 2 !
! 1 + 2z + z 1 + 4z + 6z + 4z + z 1 + 2z + z !
column 4
! 2 !
! 1 + 2z + z !
! -------------------- !
! 2 3 4 !
! 1 + 4z + 6z + 4z + z !